Option Explicit
Sub F_Sample058()
    'Microsoft ActiveX Data Objects 2.X Library ]wޥζ
    Dim myCon As New ADODB.Connection
    Dim myCmd As New ADODB.Command
    'wnsA
    myCon.Open ConnectionString:= _
    "Provider=MSDAORA;Data Source=ServerName;User ID=scot; Password=tiger;"
    Set myCmd.ActiveConnection = myCon
    With myCmd
        'HSQLwns@
        .CommandText = _
            "CREATE TABLE TESTTBL(AAA char(4)Not NULL,BBB char(5))"
        .CommandType = adCmdText
        .Execute
        MsgBox "wsWuTESTTBLv"
        'HSQLӧR
        .CommandText = "DROP TABLE TESTTBL"
        .CommandType = adCmdText
        .Execute
        MsgBox "wRuTESTTBLv"
    End With
    myCon.Close
    Set myCmd = Nothing                                 '
    Set myCon = Nothing
End Sub
